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TITLE MTHSGLOG 3 poset Point Natural and Connee 
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; Logarithm Functions ag 610) 
. IDENT /2-005/ : File: MTHGLOG.MAR De s80s 
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SRRAAAAAEAAAAEAAEA AAA AAAAAAAAAAAAAAAAAAAARAAARARAAAAAERAAAEREAAEARERAARAEAEEREAEEE 


4 ; 
G 
‘ : * G 
3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 7 G. 
8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * G 
9 AS . ALL RIGHTS RESERVED. * “ 
3 ® 
i? 3* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED e LO 
1 :* ONLY IN ACCORDANCE WITH TH R F SUCH Tht a AND WITH THE * L 
15 ;3* LUSION OF THE ABOVE Sgt ol NOTICE. THIS SOFTWARE OR ANY OTHER * LO 
88 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3p 16 as TRANSFERRED. * 
3 ® 
$00 18 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 Y :* CORPORATION. . 
000 § :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
808 i as SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. - 
0000 5 3* * 
4 § FRARAAAAAA AAA AA AAA AAA AAA AAAAAEEAARAAAAAARAAAEEAAAAAAARAAARAAAEARAAAAAAEAAEEE 
000 8; 
000 9 ; FACILITY: MATH LIBRARY 
000 0 3+ 
44 1 ; ABSTRACT: 
0000 § ; MTH$GLOG and MTHSGLOG10 are functions which return the G floating natural 
000 4 ; or common Logarithm of their G floating point argument. The call is standard 
000 5 ; call-by-reference. MTHS$GLOG SAE aoe ail a 0G10_R5 are Special routines which 
000 6 ; are the same as MTH$GLOG and” gett a faster non-standard JSB 
4 7 ; call is used with the argument " SRO” ae no registers are saved. 
$33 
38 at ; VERSION: 1 
0 42 : 
op 2g 3 HISTORY: 
44 ; AUTHOR: 
o2 3 Steven B. Lionel, 18-Jan-1979 
i ; MODIFIED BY: 
0 49 ; 
0 ? 3; VERSION: 2 
: > HISTORY: 
3; AUTHOR: 
° 33 3 Bob Hanek, 18-Jun-1981 
é : 


413 
atin Point Natural and Common 16-SEP-1984 01: AX/VMS Macro V04-00 P 
ropetalled Current Edie nintory Gosepoiobe Visseien PATAN TS Sects Mote onan:1 eee 8, 


-SBTTL HISTORY ; Detailed Current Edit History 


ALGORITHMIC DIFFERENCE FROM eee ree ROUTING § 
\\ D used in comparison, FP-11C has no G \\ 
. Uses POLYD so greater accuracy. 


Edit History for Version 1 of MTHS$GLOG 
1-001 = Adapted from MTH$DLOG version 1-010. SBL 18-Jan-79 


Edit History for Version 2 of MTH$GLOG 


$-001 = Added MTH$GLOG2. RNH 08-Aug-1981 
-002 - serrees entry Seale. ic in ; entry points. Use G* addressing for 
x . 
38? = § ” even greed MTHSSAB Bt a MTHS$SAB_ (rite cade 29-Sep-81 
04 = Eliminated symbol t¢ short literals. -0ct-8 
-005 - hedee G_FHI to the global symbol MTHSSAB. G_FHI. PDG 3-Nov-81 
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~SBTTL DECLARATIONS 


INCLUDE FILES: MTHJACKET.MAR 

EXTERNAL SYMBOLS: 
yt MTHSK_LOGZERNEG 3; Error gode 
eEXTRN MTHSSSIGNAL ; Math signal routine 
-EXTRN MTHSSAB_ALOG_V ; Table of byte offsets 


EQUATED SYMBOLS: 


ACMASK = “M<IV, R2, R3, R4, RS, R6, R7, R8> 
3 lentdear save mask and IV enable 


MACROS: none 
PSECT DECLARATIONS: 
-PSECT _MTHSCODE 


PIC,SHR, LONG, EXE ,NOWRT 
3; program section for math routines 


OWN STORAGE: none 
CONSTANTS: 


The G_FHI table is accessed 2b an snipe obtained from the MTH$$AB_ALOG_V 
table. The MTH$$AB_ALOG_V table is located in MTHALOG.MAR. ndices 
between 0 and - inclusive are et to access entries 0 through 13 
roapest tveiy. For these mien toe the first sores items of the 
perrecpenes tan entry ore. FHI, ff and LN_FHI_HI . The last two 

items hese entries are not used. Indices between 14 and 27 

soe Lg access entries 13 through 0 respectively. For these indecies, 
the last three items in the corresponding entry are LN_FHI sil. LN_FHI_LO 
and FHI. The first two items for these entries are not used. 
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+ FUNCTIONAL DESCRIPTION: 

; GLOG = single precision floating point function 

: GLOG(X) is computed using the following approximation technique: 
If X =< 0, error. Otherwise 

Let X = f * (2**n), where 1/2 <= f <1 

If n is Fp py ag ge equal fo 1 than 


F = 2ef, 
Else 
set N =n and F = f. 


Then Ln(x) = Neln2 + Ln (F) 


: If 1F = 11 < 2ee-5 then 
3 in(F) = W + WeP(W), where W = F - 1 and P 


| 


Sian” a polynomial of degree 8. 
Ln(F) = Ln(FHI) + ai a os FHI is ob- 
tained by table look-up, a $f 
degree 5 and Z = (F = aver 
NOTE: The quent ts ies in(FHI) and Ln2 are used in the above 
pqust® ons in two parts - a high part (containing the 
high order bits) and a low pers (containing the low 
order bits. In the code the h = and - spanys of the 
constants are indicated by a _H fix ragoee 
tivel Ly The values were chosen gual thet’ NEUNY 2_H 
LN_FHI_HI is exactly representable. 
; CALLING SEQUENCE: 
lLogarithm.wg.v = MTHS$GLOG(x.rg.r) 
; INPUT PARAMETERS: 


LONG = 4 3; define sonquerd multiplier 
= 1 * LONG ; Contents of x is the argument 


IMPLICIT INPUTS: none 
OUTPUT PARAMETERS: 
VALUE: G floating logarithm of the argument 
IMPLICIT OUTPUTS: none 
COMPLETION CODES: none 
SIDE EFFECTS: 


"eae of 


RIP IPIPIPIMIPIPIPIPIPIAMUPINIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPPIPIPIPINIPYUAPIPIPIPIPIPUPIPPIPIPUPIPOPUPUPIPIPUPUINYD «—- Orr? 
POOOOOOOOOVOOAOOOéOolw OOOIOOOOOOOOOOOOOAOOOAOOOAIOOOOOOOOIOOOOOOOoOoooo 
909090909 09 09.09 00 09.09 00 00 09 00 Cd C0 0D 09 C9 00 0D OF 09 OD 0D C9 09 09 CD C0 09 00 OD 09 GD CD CD GD G0 CD CD G9 CO CO.CD CD 09.09 090D.00.0000000000 
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reserves operand in RO/R1 
$L_MCH_RO/R by LIBSSIGNAL). 

OR“ NEGATIVE VALUE". Result is 

ed (or any) error handler changes 


Signals: MTHS_LOGZERNEG if ix! Ow 
(copied to the signal mechanism tor 

Associated message v “LOGARITHM OF ZE 
reserved operand -0.0 unless a user sup 
CHFSL_MCH_RO/R1. 


NOTE: This procedure disables floating point underflow, enables integer 
overflow, causes no floating overflow or other arithmetic traps, and 
preserves enables across the call. 


=< 0 ith 
vec CHF 
RO 
pli 


RPRONOPOPOND SS Sem 
UME WN—"OVOONOUS UN" 0O”/0 


«ENTRY MTHSGLOG, ACMASK ; standard call-by-reference entry 

; disable DV (and FU), enable IV 
MTHSFLAG_JACKET 3; flag that this is a jacket procedure 
MOVAB G“MTHSSJACKET_HND, (FP) 


; set handler address to jacket 
handler 


in case of an error in special JSB 
routine 

RO/R1 = arg 

call special GLOG routine 

return - result in RO/R1 


BSBB = MTHSGLOG_R8 
RET 


a 

L 

41FC 

6D O0000000'GF 9€ : 
" 
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7 
MOVG ax(AP), RO 
330 

31 
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-SBTTL MTHSGLOG1O = Standard G Floating Common logarithm 
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FUNCTIONAL DESCRIPTION: 
GLOG10 = G floating point function 
GLOG10(X) is computed as GLOGIO(E) * GLOG(X). 
See description of MTHS$GLOG 
CALLING SEQUENCE: 
Logarithm_base_10.wg.v = MTHS$SGLOG10(x.rg.r) 
INPUT PARAMETERS: 


VUVUIVTVUVTV ITTV VTVTVTVTVTVTTCT0C0T0C0—7 


LJ 
PSPS ONMNMNMNNVNVDDDD OOOOOOOOOOOOOODOWOO0000000000 


00000004 LONG = 4 3; define Languere multiplier 
00000004 x = 1 * LONG 3; Contents o is the argument 
> SIDE EFFECTS: See description of MTHS$GLOG 
41FC -ENTRY MTHS$GLOG10, ACMASK 3 ndard ae Pt Ape entry 


PDP Be Be BS BB BE PIN I 
MOO NAME WN OOO NO UE WI OWOONOUSW wD 


sta 
3; disable DV (and FU), enable IV 
MTHSFLAG_ JACKET : flag thet "his is a jacket procedure 
6D  Q0000000'GF 9€ MOVAB G*MTHSSJACKET_HND, (FP) 

set handler address to jacket 


COOOQCOOOOOOOCOSOSOOOS SOOO OCOOOOOOOOOOOOOOOOOOO 
L~4 


MMMMMMMMMMoOoOCSCVVTTCYS 


handler 
6 3; in case of an error in special JSB 
6 3; rout ne 
50 04 BC SOFD 64 MOVG ax(AP), RO ; RO/R1 = arg 
17 =©10 65 BSBB MTH$GLOG10_R8 3: call special GLOG10 routine 
04 RET 3: return - result in RO/R 
68 


siggs 


60 


41FC 


00000000'GF 9€ 


50 
50 


04 Bf 50FD 
1 10 

C2 AF 44FD 
04 


SDF FF FF FF FN FF FE FUE TE ETE TR ETU ETE STUCTUCTUCTUCTUCTUCTUCTOCTUCTOCVOCTECVUCTOCTUCTOCTOCVICVUCTICNICTICTICNIOTICT® =) —- 
SO™*POUMUUUUOOOOP PS PS P>Y>r>r>>>r>r,r,r>,r>?>?>,rY>r,rY,r>r>,r>,r,r?r?P FYI 
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°o 


DOOOOOO DO OCWWOOOOOOOOo NNN 
CONAUE WO OO NAOULS WN OOONOUS UM" ot 


H 14 
t Natural and Common 1 ~$60=1 388 91:68:)) AX/VMS Macro V04-00 Page 
andard G Floating Common “SEP=1984 11:25:44 


De Ge Ge Be Se Ge Se Ge Se Se Se Se Sees 
+ 


MTHRTL.SRCJMTHGLOG.MAR; 1 
«SBTTL MTH$GLOG2 - Standard G Floating Common logarithm 


FUNCTIONAL DESCRIPTION: 
GLOG2 = G floating point function 
GLOG2(X) is computed as GLOG2(E) * GLOG(X). 
See description of MTHS$GLOG 
CALLING SEQUENCE: 
lLogarithm_base_2.wg.v = MTHS$GLOG2(x.rg.r) 


; INPUT PARAMETERS: 


LONG = 4 3; define rs multiplier 
x = 1 * LONG 3; Contents of x is the argument 


SIDE EFFECTS: See description of MTHS$GLOG 


.ENTRY MTHSGLOG2, ACMASK : 
MTHSFLAG_JACKET 
MOVAB G*MTHSSJACKET_HND, (FP) 


standard call-by-reference entry 
qisenee DV (and FU), enable IV 
a 


3 set handler address to jacket 
handler 


in case of an error in special JSB 
routine 

RO/R1 = arg 

jump to natural log 

convert to log base 2 

return - result in RO/R1 


MOVG  ax(AP), RO 
BSBB. - MTHS$GLOG_R8 
MUL G2 G_INV_LN2_CONS, RO 


g that this is a jacket procedure 
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rn -SBTTL MTHSGLOGGLOGIO_R8 = Special GLOG/GLOG10 routines 
! ; Special GLOG/GLOG10 = used by the standard routine, and directly. 
CALLING SEQUENCE: 
save anything needed in RO:R9 
MOVG 
3 
0 


R 
JB MTHSGLOG10_R8 /MTHSGLOG_ ke 
+ urn wis result in RO/R1 
Note: Th s routine is written to avoid causing ony yy overflows, 
floating overflows, or floating underflows or divid 

whether enabled or not. 


REGISTERS USED: 
RO/R1 = G he a ta argument then result 
: af’ aa = = scratch 


POLY é° 
R6/R7 - W curing PG 
R8& - Pointer into CFA table 


input in RO/R1 


e by 0 conditions, 


MTHSGLOG10 + ages "at GLOG10 routine 

Bitw iased exponent 
GLOG(X) is not cat tned for x=<0 
user PC on top of stack 
Note: ERROR routine 4 ag A on user 
PC being on top of s 
: ren ne call to ataspios’ _R8 is not 


call common GLOG/GLOG10 routine 
RO/R1 = GLOG10O(e) * GLOG(X) 
return 
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WNAAN A ANIAINA AWWA AAAI ANAIAAI AIAN AINA 


#*°XF, RO, RB 
ERR 


BSBB GLOG_COMMON_R8 
me Ss 6_GLOG10_E, RO 


ERR: BRW ERROR 


MTHSGLOG_R8:: 
Bicw3 oat. RO, RB 


BLEQ 
GLOG_COMMON _R8: 


PEEL LER LEER PREP PEPPER PPP EPP PPP PES 


BE BWW NINN OPOPOPOPOPPOPORON 2 


5 ey of Annie # 
se 
GLOG(X) is ont Poet ined for x=<0 
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58 4000 &F A 3 suBa #*x4000, R8 ; RB = Unbiased exponent 
| oe £33 BLEQ NEG_EXP 3 Branch to processing for n=<0 
451; 
a8¢ 3; Exponent is positive. N=n- 1 and F = 2f 
454 ° 
58 1 A tee SUBW oe “ R8 7; RB=N=n-1 
20 58 OA 496 SUBW § BD. : RO/RI = F = 2f 
53 9C 45 ROTL — R3 3; RS = index into MTH$$AB_ALOG_V table 
53 AAAAAA F OCA 458 BICL R 3 = lo exp bit and Ist 7 fract bits 
52 000099 "GF §=D 459 MOVAL Piet l -ALOG_V, R2 =; R2 = Address a RTL vector entry 
5 6 460 ADDL ng? ; R2 = Address of MTHSAB_ALOG table 
53 624 461 MOVE = (R2)ER3 : R3 = offset into G_FHI 
49 #1 4 ¢ BLSS LN_1_PL iug * ; Branch to special processing 
ret : or F close to 1 
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F 465; 
: i : Compute Z, Z**2, P(Z**2) and Z*P(Z**2) 
F 468° 
7 58 4DFD 4 CVTWG RB, -(SP) 3; Push N onto the stack 
58 FC ; cree 7E ‘3 136 MOVAQ MTHSS$AB_G_FHICR3], R8 ; RB = Address of FHI 
4 ? 7D 4 471 MOVQ (RB)+, RS 3 R4/RS = FHI 
56 : 43FD 034C 47 SUBG3 RG, Rb, R6 + R6/R7 = F = FHI 
4 4OFD ; 47 ADDG R4, R ; RO/R1 = F + FHI 
6 0 46FD 474 DIVG RO, 3 R6/R7 = 2 = (F = FHID/(F + FHI) 
8 4SFD 9 475 MULG R6, R6, RO 3 RO/R1 = Z*22 
FFI3 CF g 55FD é 476 POLYG RO, #LOGLENZ-1, LOGTAB2 : RO/R1 = P(Z2*#2) 
0 44FD $3 crs MULG R6, R 3 RO/R1 = Z*P(Z**2) 
69 479; 
24 rt : Compute B = N*LN_2_L0 + LN_FHI_LO + Z*P(2*Z) 
52 FF41 CF 45FD 4 rt { MULG (SP), G LN.2_L0, R2 3 ane = N*LN_2_L0 
32 40FD 0 48 ADDG2 (RB)+, R ; RO/R3 = N*LN72-LO + LN_FHI_LO 
4OFD 0 rs 4 4 ADDG2 2, RO : RO/R1 = B 
7 486 ; 
0 : is : Compute A = N*LN_2_HI + LN_FHI_HI and GLOG(X) 
52 FF2A CF 8E 45FD 0378 489 MULG3 (SP)+, G_LN_2.HI, R2.; R2/R3 = N*LN 2_HI 
28 68 40FD 7F = 490 AODG¢ (R8), R 3 R2/R3 = A = AeCN_2.HI + LN_FHI_HI 
5 52 40FD 383 491 ADDG R2, RO ; RO/R1 = A + B = GLOG(X) 
05 Osea 98 say 
388 494 
3 495 LN_1_PLUS: 
i.) ae 496 BRB LN_1_PLUS_W 
ie 
A 499; 
301 3; Exponent is negative. N =n and F = f 
A ao 
0 5 A2 A 50 NEG_EXP: SUBW Re. RO ; RO/R1 = F = f 
53 0 0 9C D Be ROTL #3, RO, R3 ; R3 = index into MTH$$AB_ALOG table 
53 FFFFFFOO 8F CA 91 5 BICL f- R 3 = lo exp bit and Ist 7 fract bits 
52 00'GF D 98 06 MOVAL G*MTHSSAB_ALOG_V, R2  ; R2 = Address of RTL vector entry 
52. 66 C oF ADDL R 3; R2 = Address of MTHSAB_ALOG table 
53 62439) A 8 move (R2)CR3), R3 : R3 = offset into G_FHI tables 
49 «1 A BLSS LN_1_PLUS_W ; Branch to special processing 
“ 1? $ for F close to 1 
A 1 : 
. 1 : Compute Z, Z**2, P(Z**#2) and Z*P(Z**2) 
A 15° 
7E 58 4DFD A 1 CVTWG RB, -(SP) 3; Push N onto the stack 
58 FC4F CF4 7E A 1 MOVAQ MTHSSAB_G_FHICR3], RB 3; RB = Address of FHI 
4 7D ; 18 mova RE : RO/RS = FHI 
56 500 054 43FD 1 SUBG3 RG, RO, R6 > RO/R7 = F - FHI 
0 4 4OFD A $9 ADOG R4, R ; RO/R1 = F + FHI 
6 0 46FD E DIVG RO, R6 3: R6/R7 = 2 = (CF = FHID/CF + FHI) 
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C MULG3 R RO/R1 = Z**2 
£6 POLY nO. ; HEOGLEN2-1, Lostas2 RO/R1 = P(7*#2) 
; : MULG RO/R1 = Z*P(Z2*#2) 
D 
ompute = Ne * Sa 
4 $i C te B = N*LN_2_LO + LN_FHI_LO + Z*P(Z*Z) 
52 FEDS CF § 45FD D g: MULG sabe GaN 2.L0, R2 ne = N*LN_2_L0 
; 40FD D ADDG R = N*LN_2_LO + LN_FHI_LO 
FD DD ADDG R ° af} R1 = 8 
52 40 DB : sf Ss RO/R1 
E1 : 
e! 4: ; Compute A = N*LN_2_HI + LN_FHI_HI and GLOG(X) 
52 FEC cf 8 45FD O3E1 $ MULG3 (SP)+, G_LN_2.HI, R2 =; R2/R3 = N*LN 2H 
aged E8 SUBG -(R8), R2 ; R2/R3 = A = NeCN_2_HI + LN_FHI_HI 
52 40FD EC 8 ADDG2 R2, RO : RO/R1 = A +B = GLOG(X) 
05 F 9 $B 
Hee 
8 F1 4g 3; Special logic for F close to 1 
FY te : 
0 F1 45 LN_1_PLUS + 
56 50 8 43FD F1 46 $086 #1, RO, R6 3 R6/R7 = WF = 1 
FE33 CF 46008 )«=656 S5FD «03F6 «= 547 sorge R6, #LOGLEN1-1,LOGTAB1 : RO/R1 = Q(w) 
50 g 44FD O3FD 48 MULG R6, R 3 RO/R1 = WeQ(W) 
54 58 4DFD 0401 hs CVTW RB, R4 : R4/RS = N 
52 FEAS CF 4 45FD 0405 50 MULG R4, G_LN_2_L0, R2 3 R2/R3 = N*LN_2_L0 
50 52 40FD 040¢ 551 ADDG2 R2, RO ; RO/R1 = N®*LN~2-LO + Wea(w) 
50 56 40FD 410 26 ADDG R6, RO ; RO/R1 = N*LN_2_LO + LN(F) 
54 FESF gf 44FD 0414 5 MULG G in 2_HI, R4 : R4/RS5 = N*eLN-2_HI 
50 4 40FD 41A 54 ADDG RZ, RO™ ; RO/R1 = GLOGTXS 
05 O41E 55 RSB 
Oat 889 
belt 339 ; X =< 0.0, signal error 
6 D> O4iF 560 ERROR: pus HL (SP) : return PC from JSB routine 
7E OO°8F 9A 0421 61 ROVZEL #MTHSK_LOGZERNEG, -(SP) ; condition value 
50 01 79 0425 $6 ASH #15, #T, RO 3; RO = reous § = reserved operand -0.0 
429 6 3 goes to signal mechanism vector 
429 64 ; CCHFSL_MCH_RO/R1) so error handler 
4 5 3 con modify the result. 
00000000'GF 02 FB 0429 CALLS #2, G*MTHSSSIGNAL 3 ndepe error and use real user's PC 
4 ; 6 $ in ependent of CALL vs J 
05 04 o8 RSB : urn - RO restored from 
431 | 3 CHF SL -MCH_RO/R1 
431 9 
431 7 
431 7 
431 7 - END 
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MTHSGLOG acro V04- 
Symbol table RC JMTHGLOG.MAR; 1 (7) 


ACMASK 
ERR R } 
GLOG_ COMMON_R8 ® 1 
G_GLOG10_E R 1 
G_INV_LNZ_CONS a 1 
G-LN_g Hi R 1 
G"LN_2 LO a 1 
LA_1_PCuUS a 1 
LN" 1 PLUS _W a 1 
LOGLEN 
LOGT R 4 
LOGTAB2 R 1 
LONG 
THSSAB_ALOG V  teeeeeee =X 00 
MTH$$AB_-G FHT 00000000 RG 01 
MTHSSJACKET_HND teeeeeee Xx 01 
MTHSSSIGNAL aeeneere §X 0 
THSGLOG 002C8 RG 1 
THSGLOG1 00209 RG 01 
MTHS$SGLOG10_R8 00 RG 01 
2 eet RG 01 
MTHSGLOG_RB 00000311 RG 01 
MTHSK LOGZERNEG tteereee xX 00 
NEG_EXP 0038A R 01 


000 
= 00000004 


PSECT name Allocation PSECT No. Attributes 

- ABS, 00000000 ( 9.3 69 ( 0.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

_MTHSCODE 00000431 (¢ 1073.) s S Bon PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
foewcewenecce soon nese scndy 


; Performance indicators ; 


Phase Page faults CPU Time Elapsed Time 
Initialization 2 :00: 19 8 : 0-2 
Command processing 118 :00:00.7 :03.5 
ate tabl t :00:00. i :00: “$1 
able sor :00:00. < 
Pass 11 :01. :00:06.43 
Symbol table output :00:00.04 0:00:00. 2 
Psect synopsis output :00:00. :00:00. 
Cross-reference output :00: . 6 0:0 :00. 
Assembler run totals 36 :00:03. :00:16.84 


9346 bytes pages) of virtual memory were used to buffer the intermediate code. 
There were pages of symbol table space allocated to hold 27 non-local and 0 local symbols. 


The working set Limit was 1050 pages. 
10 
635 source Lines were read in Pass 1, producing 18 object records in Pass 2. 
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1 page of virtual memory was used to define 1 macro. 
preg seg Reng 


! Macro Library statistics } 


Ganeenenannes en2eewae some saaat 


Macro Library name Macros defined 
-8255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/D1ISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHGLOG/OBJ=OBJ$:MTHGLOG MSRC$:MTHJACKET/UPDATE=(ENHS:MTHJACKET) +MSRCS: 


"ESEP=SBS 1:88:02 ERAN 
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